home *** CD-ROM | disk | FTP | other *** search
/ Micromanía 93 / CDMM_93_2.ISO / Project Nomads / nomads_demo_eng.exe / ARTEFACTSTORAGE.TCL < prev    next >
Encoding:
Text File  |  2002-04-19  |  3.3 KB  |  133 lines
  1. #
  2. #   Zustands-▄berwachungs-Script
  3. #   State Watch Script
  4. #
  5. #   Factory
  6. #
  7. #   created:    15-Jun-2000 Bernd
  8. #   
  9. #   (C) COPYRIGHT 2000 RADONLABS GMBH
  10. #
  11.  
  12. proc artefactstoragewatch_normal {} {
  13.  
  14.     # vorerst hier unzerstoerbar. Bleibt so, bis es aufgesammelt
  15.     # (in BackPack) oder gebaut (kein Artefakt mehr) wird 
  16.     if {[.getartefactmode] == "false"} {
  17.         .announcestate house
  18.     } elseif {[.iscollected] == "true"} {
  19.         .announcestate backpack
  20.     } elseif {[.getcharges] <= 0} {
  21.         .setremoveable true
  22.     } elseif {[.getcreator] != "null"} {
  23.         .announcestate infactoryslot
  24.     }
  25. }
  26.  
  27. proc artefactstoragewatch_infactoryslot {} {
  28.  
  29.     # vorerst hier unzerstoerbar. Bleibt so, bis es aufgesammelt
  30.     # (in BackPack) oder gebaut (kein Artefakt mehr) wird 
  31.     if {[.getartefactmode] == "false"} {
  32.         .announcestate house
  33.     } elseif {[.iscollected] == "true"} {
  34.         .announcestate backpack
  35.     } elseif {[.getcharges] <= 0} {
  36.         .setremoveable true
  37.     } elseif {[.getcreator] == "null"} {
  38.         .announcestate normal
  39.     }
  40. }
  41.  
  42. proc artefactstoragewatch_bauphase {} {
  43.  
  44.     # kann zerstoert oder wieder zusammengeklappt werden
  45.     if {[.iskilled] == "true"} {
  46.         .announcestate explode
  47.     } elseif {[.getartefactmode] == "true"} {
  48.         .announcestate normal
  49.     } elseif {[.isstatetimeover] == "true"} {
  50.         .announcestate house
  51.     }
  52. }
  53.  
  54.  
  55. proc artefactstoragewatch_house {} {
  56.  
  57.     # kann zerstoert oder wieder zusammengeklappt werden
  58.     if {[.iskilled] == "true"} {
  59.         .announcestate explode
  60.     } elseif {[.getartefactmode] == "true"} {
  61.         .announcestate normal
  62.     } elseif {[.isdooropen] == "true"} {
  63.         .announcestate open
  64.     } elseif {[.removebuilding] == "true"} {
  65.         .announcestate remove
  66.     }
  67. }
  68.  
  69. proc artefactstoragewatch_explode {} {
  70.  
  71.     # Uebergang zum Artefakt oder Wegnehmen
  72.     if {[.isanimfinished] == "true"} {
  73.         if {[.getcharges] <= 0} {
  74.             .setremoveable true
  75.         } else {
  76.             .announcestate normal
  77.         .removefromisland
  78.         }
  79.     }
  80. }
  81.  
  82. proc artefactstoragewatch_remove {} {
  83.  
  84.     # Uebergang zum Artefakt oder Wegnehmen
  85.     if {[.isanimfinished] == "true"} {
  86.         if {[.getcharges] <= 0} {
  87.             .setremoveable true
  88.         } else {
  89.             .announcestate normal
  90.         .removefromisland
  91.         }
  92.     }
  93. }
  94.  
  95. proc artefactstoragewatch_backpack {} {
  96.  
  97.     # Moeglich: usgeworfen (Nicht mehr "gesammelt") oder im
  98.     # Menue gezeigt (sichtbar)
  99.     if {[.iscollected] == "false"} {
  100.         .announcestate normal
  101.     } elseif {[.isvisible] == "true"} {
  102.         .announcestate menue
  103.     }
  104. }
  105.  
  106. proc artefactstoragewatch_menu {} {
  107.  
  108.     if {[.isvisible] == "false"} {
  109.         .announcestate backpack
  110.     } elseif {[.getartefactuse] == "true"} {
  111.         .announcestate build
  112.     } elseif {[.iscollected] == "false"} {
  113.         .announcestate normal
  114.     }
  115. }
  116.  
  117. proc artefactstoragewatch_build {} {
  118.  
  119.     if {[.iskilled] == "true"} {
  120.         .announcestate explode
  121.     } elseif {[.getartefactmode] == "false"} {
  122.         .announcestate bauphase
  123.     } elseif {[.getartefactuse] == "false"} {
  124.         .announcestate backpack
  125.     }
  126. }
  127.  
  128. proc artefactstoragewatch_cinematic {} {
  129.  
  130.     # empty
  131. }    
  132.  
  133.